home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / windows / win31 / skyw200.arj / PLANETS.SCR < prev    next >
Text File  |  1993-08-30  |  335b  |  20 lines
  1. ;@Show &planets now visible
  2.  
  3. ; show all planets now visible
  4. ; with a 10 second wait between each
  5.  
  6. set_scale 3
  7. set_switch "solabv",1
  8.  
  9. for p=1 to 9
  10.   if p<>3 then
  11.     get_equ "planet",p,Ra,Dec
  12.     equ2hor Ra,Dec,Alt,Azm
  13.     if Alt>0 then
  14.       set_center "planet",p
  15.       plot_map
  16.       wait 10
  17.     endif
  18.   endif
  19. next
  20.